home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 11
/
FM Towns Free Software Collection 11.iso
/
music
/
naizou
/
kobayasi
/
mml
/
trn04_c.mml
< prev
next >
Wrap
Text File
|
1995-08-14
|
8KB
|
556 lines
/*********************************************************************
/ MML detail (6) part C
/*********************************************************************
.next
#define A rf(>df)2 >(d<f)3
#define B rd(b->d)2 >(<b-d)3
#define O b-rr4
t112o4l12 v6 %d%40 $A
o4l12 v6 %d%40 $B
o4l8 v8 %d%40 d2 d4.c
o3l8 v4 %d12 $O $O
o3l8 v4 %d16 frr4 frr4
o2l8 v4 %d24 $O $O
o1l8 v4 %d48 r2 $O
o1l8 v4 r1
.next
#define P drr4
$A
$B
<b-2 b-4.b-
frr4 frr4
$P $P
$O $O
r2 $O
r1
.next
rg-(>e-g-)2 >(e-<g-)3
re-(>ce-)2 >(c<e-)3
a4.a >g-4.<a
g-rr4 arr4
e-rr4 g-rr4
$O r2
r1
r1
.next
$A
$B
>c2 <b-rr4
frr4 r2
< $O r2
r1
r1
r1
.next
#define C rg(>dg)2 >(d<g)3
#define Q grr4
$C
$B
>d2 d4.c
$O $O
> $Q $Q
> $P $P
r2 > $Q
r2 $Q
.next
$C
$B
<b-2 b-4.b-
r2 $Q
$P $P
< $Q $Q
r2 < $Q
r1
.next
rg(>eg)2 t-4 >(e<g)3
re(b->e)2 (b-e<)2b-r
>d-4.c b-4.'9e
$O >crr4
err4 $Q
>crr4 r2
r2 r2
r2 r2
.next
t+4 ra(>fa)2 >(f<a)3
rf(>cf)2 >(c<f)3
f2. r4
<arr4 r2
crr4 r2
<frr4 r2
r1
r1
.next
ra-(>fa-)2 >(f<a-)3
rf(>d-f)2 >(d-<f)2d-<r
f2 f4.'9f
>d-rr4 d-rr4
a-rr4 a-rr4
>d-rr4 d-rr4
r2 >d-rr4
r1
.next
ra-(>e-a-)2 >(e-<a-)3
re-(>d-e-)2 >(c<e-)3
!+1a-2& e-4r4
e-rr4 crr4
> $P <a-rr4
a-rr4 e-rr4
r2 a-rr4
r1
.next
rg(>e-g)2 >(e-<g)3
re-(>ce-)2 >(c<e-)2c<r
e-2 e-4.'9e-
crr4 crr4
$Q $Q
crr4 crr4
r2 crr4
r1
.next
$C
rd(>cd)2 >(<bd)3
!+1g2& d4r4
$P <brr4
>crr4 < $Q
$Q $P
r2 $P
r1
.next
$A
$B
d2 d4.c
$O $O
frr4 frr4
< $O $O
< r2 $O
r1
.next
$C
$B
<b-2 b-4.b-
r2 $Q
$P $P
$Q $Q
r2 $Q
r1
.next
t-4 rg>dre->c re-b-re->c
re-rr>cg rb->grcg
>d4c4 <b-4>c4
%d%40 $Q $Q %d12
%d%40 e-rr4 e-rr4 %d16
%d%40 r4e-r r4e-r %d24
r1
r1
.next
t+4 o4rf+(>df+)2 v6 %d%20 >d<f+r6d<f+ %d%0
o4rd(a>d)2 v6 %d%20 adr6<ad %d%0
d2 r2 %d%0
r1 %d%0
f+rr4 o6l12v6 %d%20 r6d<f+r6 %d%0
arr4 o5l12v6 %d%20 r6adr6 %d%0
drr4 r2 %d%0
r1
.next
(r6d<f+)2 rr8o3d8
(r6<ad)2 r3
r1
r1
(d<f+r6)2 o1d>d8r8
(<adr6)2 r3
r1
r1
/---------------------------------------------------------------------
.next
t56 l16 (>>rd)2r4 t108o6v7l8 r2
r2 o6v4l12 r(d)5
r2 o5v4l12 r(d)5
r2 o5v7l8 r2
l16 (>>dr)2r4 o4v2l12 r2
r2 o4v2l12 r2
r2 o4v2l12 r2
r2 o2v6l12 r2
.next
#define U v2 rff]fff] fff]ffr
#define V v2 rdd]ddd] ddd]ddr
#define X b-rr3 r2
#define Z v2 <rfg-]ga-a] b-b>c]c+r6
d2 d4rc
<r(b-)5 r(b-)4r
r(f)5 rffffr
d2 d4rc
$U
$V
$Z
$X
.next
<b-2 b-4rb-
r(f)5 rffffr
r(d)5 rddddr
<b-2 b-4rb-
$U
$V
$Z
$X
.next
a4ra >g-4<ra
r(e-)4r >rccccr
r(c)5 raaaar
a4ra >g-4<ra
v2 rg-g-](g-)3] (g-)3]g-g-r
v2 re-e-](e-)3] (e-)3]e-e-r
v2 <rg-g]a-ab-] b>cd-]dr6
$X
.next
>c2 <b-4r4
<r(f)5 r(f)5
r(d)5 r(d)5
>c2 <b-4r4
$U
$V
$Z
$X
.next
>d2 d4rc
r(b-)5 r(b-)4r
r(g)5 rggggr
>d2 d4rc
v2 rb-b-](b-)3] (b-)3]b-b-r
v2 rgg]ggg] ggg]ggr
v2 <rb-b]>cc+d] e-ef]f+r6
grr3 r2
.next
<b-2 r4rb-
r(g)5 (g)5r
r(d)5 (d)5r
<b-2 r4rb-
v2 rgg]ggg] ggg]gr6
v2 rdd]ddd] drdr4
v2 <rgg+]ab-b] >cc+r]<b-r6
grr3 r2
.next
>d-4]#4rc v8 b-4re
rb-b-]#4b-b-r v6 >reeeer
ree]#4eer v6 >r(d-)4r
>d-4]#4rc v8 b-4re
v3 rb-b-](b-)3 v5 (b-)3]b-b-r
v3 rgg]ggg v5 ggg]ggr
v3 !5cb-b]>cd-d v5 e-ef]f+r6
crr3 v6 r2
.next
f2 r2
r(c)5 (c)6
<r(a)5 (a)6
f2 r2
r(a)5 aaaar6
r(f)5 ffffr6
<rab-b>cd- de-er4
frr3 r2
.next
f2 ]#4 f4rf
r(d-)5 ]#4 r(d-)4r
r(a-)5 ]#4 r(a-)4r
f2 ]#4 f4rf
r(f)5 ]#4 ffffr6
r(d-)5 ]#4 (d-)4r6
<d-fg-ga-a ]#4 b-b>cr4
d-rr3 ]#4 r2
.next
]#4 !+1a-2& [#4 e-4r4
]#4 r(e-)5 [#4 rcc [#4 ccc
]#4 >r(d-)5 [#4 <ra-a- [#4 (a-)3
]#4 !+1a-2& [#4 e-4r4
]#4 r(a-)5 [#4 ra-a- [#4 (a-)3
]#4 r(e-)5 [#4 re-e- [#4 e-re-
]#4 <<a->a-ab-b>c [#4 r<b>c [#4 d-dr
]#4 <a-rr3 [#4 r2
.next
v8 g+2 ]#4 g+4rg+
v6 r(e)5 ]#4 reeeer
v6 r(b)5 ]#4 rbbbbr
v8 g+2 ]#4 g+4rg+
v6 r(a-)5 ]#4 (a-)4r6
v6 r(e)5 ]#4 eeeer6
v6 <eg+aa+b>c ]#4 c+dd+r4
v6 >err3 ]#4 r2
.next
v9 !+1b2& ]#4 f+4r4
v7 r(g-)5 ]#4 r(e-)5
v7 >r(e)5 ]#4 <r(b)5
v9 !+1b2& ]#4 f+4r4
v7 r(b)5 ]#4 r(b)5
v7 r(g-)5 ]#4 r(g-)3rg-
v7 <<b>b>cc+dd+]#4 dd+efr
v7 <brr3 ]#4 r2
.next
#define A c+dd+e ff+gg+aa+
#define O o4b2 <b4rb
#define P o4frr4 <frr4
#define Q o4drr4 <drr4
#define R o3g+rr4 <g+rr4
v5l12 o4r6 (b)10
v5l12 o4r6 $A
v5l12 r1
r1
v6l8 %d%36 $O
v5l8 %d16 $P
v5l8 %d32 $Q
v5l8 $R
.next
b>c $A
r(b)11
r1
r1
b4 r4 r2
d+r r4 r2
<g+r %d%0 r{rd+} d+rr4
r4 r{r<g+} g+rr4
.next
(b)12
r>c $A
r1
r1
$O
$P
%d32 $Q
$R
.next
b>c $A
r(b)11
r1
r1
b4 r4 r2
d+r r4 r2
<g+r %d%0 r{rd+} d+rr4
r4 r{r<g+} g+rr4
.next
(b)6 ]#4 r(b)5
b>cc+dd+e ]#4 reff+gg+
r2 ]#4 o6r(d)5
r1
o4b2 ]#4 <b4rb %d%0
o4frr4 ]#4 <frr4 %d%0
%d32 o4drr4 ]#4 <drr4 %d%0
o3g+rr4]#4 <g+rr4
.next
#define A >ree-dd-c <bb-aa-gg-
#define B >rc<bb-aa- gg-fee-d
#define C rgg-fee- dd-c<bb-a
t120v8 $A
v8 $B
v8 $C
r1
v9 q9{<g>eg}16 q8 >!+2e4.. r4e4
v9 r16 >!+2c4.. r4c4
v9 r2 <!-1gr>g4
v9 r2 <!-1grr4
.next
t+4 fee-dd-c <rbb-aa-g
d-c<bb-aa- rgg-fdd
a-gg-fee- rdd-c<bb
r1
!+1f2 %d%36 <b4. %d%0 b
!+1d-2 %d16 <fr4 %d%0 f
!+1a-2 %d32 dr4 %d%0 d
r2 >gr4 r
.next
t+4 $A
$B
> $C
r1
>!+2e2 r4e4
>!+2c2 r4c4
!+2g2 <!-1gr>g4
r2 <!-1grr4
.next
#define A fee-dd-c <bb-aa-gg-
#define B d-c<bb-aa- gg-fee-d
t136] $A
] $B
]a-rr3 r2
r1
l12 !12f3ee- dd-c<bb-a
!12d-4r4 r2
!12a-4r4 r2
r1
.next
#define C a-gg-fee- dd-c<bb-a
t+8 $A
$B
r1
r1
$C
r1
r1
r1
.next
t+8 $A
$B
r1
r1
$C
r1
r1
r1
.next
#define A fg-]#4ga-]#4gg-[#4[#4
#define B d-d]#4e-e]#4e-d[#4[#4
#define C a-a]#4b-b]#4b-a[#4[#4
t+8 $A $A
$B $B
r1
r1
$C $C
r1
r1
r1
.next
t-6 $A t-6 fg-g a-6&g&
$B d-de- e&f6&
r1
r1
$C a-ab- b4&
r2 r4 o1r12d-6&
r1
r1
.next
#define X >r6c <r6br6b-
l4 g t168v6 >>c t+2 d-d
l12 e4 v6 >rgr (ra-r)2
l12 r4 v6 o3rer (rfr)2
l4 r v6 o3c d-d
l12 >c4 v6 $X
l12 c4 v6 $X
r4 v6 r4 r2
r4 v6 r4 r2
.next
#define X r6e->r6d r6c+<r6f+
t+3 e-e t+3 ff+
rb-rrbr rbr>rc+r
rgrrg+r rg+rra+r
e-e ff+
$X
$X
r1
r1
.next
#define X r6fr6e ]#4 r6ar6a
t+3 gg+ t+3 ]#4 ab-
rdrrdr ]#4 rerrfr
rbrrbr ]#4 >rc+rrdr
gg+ ]#4 ab-
$X
$X
r1
r1
.next
t+2 ]#4 b>c ]#4 {c+r} t200v9 !+2b-&
]#4 rf+rrgr ]#4 r4 v9 !+2b-4&
]#4 rd+rrer r4 r4
]#4 b>c ]#4 {c+r} r
]#4 r6ar6a ]#4 >g8r8 v9 !+2b-4&
]#4 r6ar6a ]#4 >>e8r8 v9 <!+2b-4&
r2 o2!8a8r8 r4
r2 r4 r4
.next
#define A t114!+2b-6agfe t132dc+ece<b
l12 $A
l12 $A
r1
r1
$A
$A
r1
r1
.next
#define A t-3 ]>e<b->e t-3 ]<a8r8[[ t114>>!+2c+6<b-ag+f
$A
$A
r1
r1
$A
$A
r1
r1
.next
#define A t132ege-gdg t-3 ]c+g<b- t-3 ]>g8<a8[[
$A
$A
r1
r1
$A
$A
r1
r1
.next
#define A t138>>!+2e6dc+<b-a t+6 ]>gfedc+]b-
$A
$A
r1
r1
$A
$A
r1
r1
.next
#define A agfe[>ed c+<b-a[>b-ag
$A
$A
r1
r1
$A
$A
r1
r1
.next
#define A fedc+e<b- >c<ab- t216g8b-8
$A
$A
r1
r1
$A
$A
r1
r1
.next
#define A t144fgegde c+e<b->c+<ab-
$A
$A
r1
r1
$A
$A
r1
r1
.next
#define A gb-fgeg t-4 dec+e<b->c+
$A
$A
r1
r1
$A
$A
r1
r1
.next
#define A <ab-g+ t-4 aga f+afaea
$A
$A
r1
r1
$A
$A
r1
r1
.next
#define A t156l6 !+1e-a t-4 !+1ca t-4 !+1c+a
$A
$A
r1
r1
$A
$A
r1
r1
/---------------------------------------------------------------------
